home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / vbasic / receipt.exe / SHIPDLG.FRM < prev    next >
Text File  |  1993-07-22  |  8KB  |  263 lines
  1. VERSION 2.00
  2. Begin Form Form7 
  3.    Caption         =   "Ship To:"
  4.    ClientHeight    =   3975
  5.    ClientLeft      =   1275
  6.    ClientTop       =   1635
  7.    ClientWidth     =   7155
  8.    Height          =   4380
  9.    Left            =   1215
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form7"
  12.    ScaleHeight     =   265
  13.    ScaleMode       =   3  'Pixel
  14.    ScaleWidth      =   477
  15.    Top             =   1290
  16.    Width           =   7275
  17.    Begin CommandButton Command2 
  18.       Caption         =   "Cancel"
  19.       Height          =   375
  20.       Left            =   4080
  21.       TabIndex        =   6
  22.       Top             =   3360
  23.       Width           =   1935
  24.    End
  25.    Begin CommandButton Command1 
  26.       Caption         =   "OK"
  27.       Height          =   375
  28.       Left            =   1200
  29.       TabIndex        =   5
  30.       Top             =   3360
  31.       Width           =   1935
  32.    End
  33.    Begin VBedit BEdit6 
  34.       CellHeight      =   32
  35.       CellWidth       =   22
  36.       CharSet         =   16388
  37.       CombBaseLine    =   24.333
  38.       CombEndHeight   =   8
  39.       CombEndMarker   =   0   'False
  40.       CombHeight      =   4
  41.       FontBold        =   0   'False
  42.       FontItalic      =   0   'False
  43.       FontName        =   "Arial"
  44.       FontSize        =   18
  45.       FontStrikethru  =   0   'False
  46.       FontUnderline   =   0   'False
  47.       Height          =   495
  48.       InflateBottom   =   12
  49.       InflateLeft     =   12
  50.       InflateRight    =   12
  51.       InflateTop      =   16
  52.       Left            =   4560
  53.       TabIndex        =   13
  54.       Top             =   2520
  55.       Version         =   268435458
  56.       Width           =   1815
  57.    End
  58.    Begin VBedit BEdit5 
  59.       CellHeight      =   32
  60.       CellWidth       =   22
  61.       CharSet         =   16386
  62.       CombBaseLine    =   24.333
  63.       CombEndHeight   =   8
  64.       CombEndMarker   =   0   'False
  65.       CombHeight      =   4
  66.       FontBold        =   0   'False
  67.       FontItalic      =   0   'False
  68.       FontName        =   "Arial"
  69.       FontSize        =   18
  70.       FontStrikethru  =   0   'False
  71.       FontUnderline   =   0   'False
  72.       Height          =   495
  73.       InflateBottom   =   12
  74.       InflateLeft     =   12
  75.       InflateRight    =   12
  76.       InflateTop      =   16
  77.       Left            =   1200
  78.       TabIndex        =   12
  79.       Top             =   2520
  80.       Version         =   268435458
  81.       Width           =   855
  82.    End
  83.    Begin VBedit BEdit4 
  84.       CellHeight      =   32
  85.       CellWidth       =   22
  86.       CharSet         =   16651
  87.       CombBaseLine    =   24.333
  88.       CombEndHeight   =   8
  89.       CombEndMarker   =   0   'False
  90.       CombHeight      =   4
  91.       FontBold        =   0   'False
  92.       FontItalic      =   0   'False
  93.       FontName        =   "Arial"
  94.       FontSize        =   18
  95.       FontStrikethru  =   0   'False
  96.       FontUnderline   =   0   'False
  97.       Height          =   495
  98.       InflateBottom   =   12
  99.       InflateLeft     =   12
  100.       InflateRight    =   12
  101.       InflateTop      =   16
  102.       Left            =   1200
  103.       TabIndex        =   11
  104.       Top             =   1920
  105.       Version         =   268435458
  106.       Width           =   5775
  107.    End
  108.    Begin VBedit BEdit3 
  109.       CellHeight      =   32
  110.       CellWidth       =   22
  111.       CombBaseLine    =   24.333
  112.       CombEndHeight   =   8
  113.       CombEndMarker   =   0   'False
  114.       CombHeight      =   4
  115.       FontBold        =   0   'False
  116.       FontItalic      =   0   'False
  117.       FontName        =   "Arial"
  118.       FontSize        =   18
  119.       FontStrikethru  =   0   'False
  120.       FontUnderline   =   0   'False
  121.       Height          =   495
  122.       InflateBottom   =   12
  123.       InflateLeft     =   12
  124.       InflateRight    =   12
  125.       InflateTop      =   16
  126.       Left            =   1200
  127.       TabIndex        =   10
  128.       Top             =   1320
  129.       Version         =   268435458
  130.       Width           =   5775
  131.    End
  132.    Begin VBedit BEdit2 
  133.       CellHeight      =   32
  134.       CellWidth       =   22
  135.       CombBaseLine    =   24.333
  136.       CombEndHeight   =   8
  137.       CombEndMarker   =   0   'False
  138.       CombHeight      =   4
  139.       FontBold        =   0   'False
  140.       FontItalic      =   0   'False
  141.       FontName        =   "Arial"
  142.       FontSize        =   18
  143.       FontStrikethru  =   0   'False
  144.       FontUnderline   =   0   'False
  145.       Height          =   495
  146.       InflateBottom   =   12
  147.       InflateLeft     =   12
  148.       InflateRight    =   12
  149.       InflateTop      =   16
  150.       Left            =   1200
  151.       TabIndex        =   9
  152.       Top             =   720
  153.       Version         =   268435458
  154.       Width           =   5775
  155.    End
  156.    Begin VBedit BEdit1 
  157.       CellHeight      =   32
  158.       CellWidth       =   22
  159.       CombBaseLine    =   24.333
  160.       CombEndHeight   =   8
  161.       CombEndMarker   =   0   'False
  162.       CombHeight      =   4
  163.       FontBold        =   0   'False
  164.       FontItalic      =   0   'False
  165.       FontName        =   "Arial"
  166.       FontSize        =   18
  167.       FontStrikethru  =   0   'False
  168.       FontUnderline   =   0   'False
  169.       Height          =   495
  170.       InflateBottom   =   12
  171.       InflateLeft     =   12
  172.       InflateRight    =   12
  173.       InflateTop      =   16
  174.       Left            =   1200
  175.       TabIndex        =   7
  176.       Top             =   120
  177.       Version         =   268435458
  178.       Width           =   5775
  179.    End
  180.    Begin Label Label6 
  181.       Caption         =   "Zip Code:"
  182.       Height          =   255
  183.       Left            =   3240
  184.       TabIndex        =   8
  185.       Top             =   2640
  186.       Width           =   855
  187.    End
  188.    Begin Label Label5 
  189.       Caption         =   "State:"
  190.       Height          =   255
  191.       Left            =   120
  192.       TabIndex        =   4
  193.       Top             =   2640
  194.       Width           =   615
  195.    End
  196.    Begin Label Label4 
  197.       Caption         =   "City:"
  198.       Height          =   255
  199.       Left            =   120
  200.       TabIndex        =   3
  201.       Top             =   2040
  202.       Width           =   495
  203.    End
  204.    Begin Label Label3 
  205.       Caption         =   "Address:"
  206.       Height          =   255
  207.       Left            =   120
  208.       TabIndex        =   2
  209.       Top             =   1440
  210.       Width           =   735
  211.    End
  212.    Begin Label Label2 
  213.       Caption         =   "Last Name:"
  214.       Height          =   255
  215.       Left            =   120
  216.       TabIndex        =   1
  217.       Top             =   840
  218.       Width           =   975
  219.    End
  220.    Begin Label Label1 
  221.       Caption         =   "First Name:"
  222.       Height          =   255
  223.       Left            =   120
  224.       TabIndex        =   0
  225.       Top             =   240
  226.       Width           =   975
  227.    End
  228. End
  229.  
  230. Sub Command1_Click ()
  231.    Form1.ShipName.Text = LTrim$(BEdit1.Text + " " + BEdit2.Text)
  232.    Form1.ShipAddr.Text = LTrim$(BEdit3.Text)
  233.    Form1.ShipCity.Text = LTrim$(BEdit4.Text)
  234.    Form1.ShipState.Text = BEdit5.Text
  235.    Form1.ShipZip.Text = BEdit6.Text
  236.    Unload Form7
  237. End Sub
  238.  
  239. Sub Command2_Click ()
  240.    Unload Form7
  241. End Sub
  242.  
  243. Sub Form_Load ()
  244.    Form7.Top = (Screen.Height - Form7.Height) / 2
  245.    Form7.Left = (Screen.Width - Form7.Width) / 2
  246.    
  247.    tmp$ = Form1.ShipName.Text
  248.    x = InStr(1, tmp$, " ")
  249.    If x > 0 Then
  250.       BEdit1.Text = Mid$(tmp$, 1, x)
  251.       BEdit2.Text = Mid$(tmp$, x, Len(tmp$))
  252.    Else
  253.       BEdit1.Text = tmp$
  254.       BEdit2.Text = ""
  255.    End If
  256.  
  257.    BEdit3.Text = Form1.ShipAddr.Text
  258.    BEdit4.Text = Form1.ShipCity.Text
  259.    BEdit5.Text = Form1.ShipState.Text
  260.    BEdit6.Text = Form1.ShipZip.Text
  261. End Sub
  262.  
  263.